home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
vol_100
/
132_01
/
run
< prev
next >
Wrap
Text File
|
1985-08-19
|
2KB
|
212 lines
#ASM
ccgchar:
FCB 01FH,01
FCB 0E6H,084H
ccsxt:
FCB 01DH
rts
ccgint:
FCB 01FH,01
FCB 0ECH,084H
rts
ccpchar:
FCB 0E7H,084H
rts
ccpint:
FCB 0EDH,084H
rts
ccor:
FCB 034H,010H
FCB 0AAH,0E0H
FCB 0EAH,0E0H
rts
ccxor:
FCB 034H,010H
FCB 0A8H,0E0H
FCB 0E8H,0E0H
rts
ccand:
FCB 034H,010H
FCB 0A4H,0E0H
FCB 0E4H,0E0H
rts
cccmp:
FCB 034H,006H
FCB 01EH,01
FCB 08EH,0,1
FCB 0A3H,0E1H
FCB 01EH,01
bmi ccmp1
FCB 01CH,0FEH
rts
ccmp1:
FCB 01AH,01
rts
cceq:
bsr cccmp
beq exit
decb
exit: rts
ccne:
bsr cccmp
bne exit
decb
rts
ccgt:
FCB 01EH,01
bsr cccmp
bcs exit
decb
rts
ccle:
bsr cccmp
beq exit
bcs exit
decb
rts
ccge:
bsr cccmp
bcc exit
decb
rts
cclt:
bsr cccmp
bcs exit
decb
rts
ccuge:
bsr ccucmp
bcc exit
decb
rts
ccult:
bsr ccucmp
bcs exit
decb
rts
ccugt:
FCB 01EH,01
bsr ccucmp
bcs exit
decb
rts
ccule:
bsr ccucmp
beq exit
bcs exit
decb
rts
ccucmp:
FCB 034H,06
FCB 01EH,01
FCB 08EH,01
FCB 010H,0A3H,0E1H
rts
ccasr:
FCB 01EH,01
lccasr:
asra
rorb
FCB 030H,01FH
bne lccasr
rts
ccasl:
FCB 01EH,01
lccasl:
aslb
rola
FCB 030H,01FH
bne lccasl
rts
ccsub:
FCB 034H,06
FCB 01eH,01
FCB 0A3H,0E1H
rts
cccom:
coma
comb
rts
ccneg:
coma
comb
FCB 0C3H,00,01
rts
ccmult:
FCB 034H,016H
clra
clrb
ccmul1:
FCB 064H,0e4H
FCB 066H,061H
bcc ccmul2
FCB 0E3H,062H
ccmul2:
FCB 06dH,061H
bne ccmul3
FCB 06DH,0E4H
bne ccmul3
FCB 032H,064H
rts
ccmul3:
FCB 068H,063H
FCB 069H,062H
bne ccmul1
FCB 06DH,063H
bne ccmul1
FCB 032H,064H
rts
ccdiv:
FCB 034H,016H
FCB 0A8H,062H
FCB 034H,006H
clra
clrb
FCB 034H,006H
FCB 06DH,064H
bpl ccdiv0
FCB 0A3H,064H
FCB 0EDH,064H
ccdiv0:
FCB 06DH,066H
bpl ccdiv4
clra
clrb
FCB 0A3H,066H
FCB 0EDH,066H
ccdiv4:
FCB 0CCH,0,010H
FCB 034H,006H
ccdiv1:
FCB 068H,069H
FCB 069H,068H
FCB 069H,063H
FCB 069H,062H
bne ccdiv2
FCB 0ECH,062H
FCB 010H,0A3H,066H
bmi ccdiv2
FCB 06CH,069H
FCB 0ECH,062H
FCB 0A3H,066H
FCB 0EDH,066H
ccdiv2:
FCB 06AH,061H
bne ccdiv1
ccdiv3:
FCB 06DH,064H
bpl ccdivx
clra
clrb
FCB 0A3H,062H
FCB 032H,06AH
ccdivx:
rts
#ENDASM
comb
rts
ccneg:
coma
comb
FCB 0C3H,00,01